;;; squee --- A guile interface to postgres via the ffi

;; Copyright (C) 2015 Christopher Allan Webber <cwebber@dustycloud.org>

;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public
;; License as published by the Free Software Foundation; either
;; version 3 of the License, or (at your option) any later version.
;; 
;; This library is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;; Lesser General Public License for more details.
;; 
;; You should have received a copy of the GNU Lesser General Public
;; License along with this library; if not, write to the Free Software
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA

(use-modules (srfi srfi-1)
             (srfi srfi-26)
             (guix packages)
             (guix build-system gnu)
             (guix download)
             (guix git-download)
             ((guix build utils) #:select (with-directory-excursion))
             (guix gexp)
             (gnu packages)
             (gnu packages autotools)
             (gnu packages base)
             (gnu packages guile)
             (gnu packages pkg-config)
             (gnu packages texinfo)
             (gnu packages databases)
             (guix licenses))

(define %source-dir (dirname (current-filename)))

(define guile-squee
  (package
   (name "guile-squee")
   (version "0.1")
   (source (local-file %source-dir
                        #:recursive? #t
                        #:select? (git-predicate %source-dir)))
   (build-system gnu-build-system)
   (arguments
    '(#:phases
      (modify-phases %standard-phases
                     (add-after 'unpack 'bootstrap
                                (lambda _ (zero? (system* "sh" "bootstrap.sh")))))))
   (native-inputs
    `(("pkg-config" ,pkg-config)
      ("autoconf" ,autoconf)
      ("automake" ,automake)
      ("texinfo" ,texinfo)))
   (inputs
     `(("guile" ,guile-2.2)
       ("postgresql" ,postgresql)))
   (home-page #f)
   (synopsis "Guile library for Postgresql using the FFI.")
   (description "Guile library for Postgresql using the FFI.")
   (license lgpl3+)))

guile-squee
